1 Q=53265
100 PD$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":PRINT"[147]  CHANGE PROGRAM START-ADDRESS 1473"
101 CR$=CHR$(13):C0$=CHR$(0):C1$=CHR$(1)
102 INPUT" PROGRAMMNAME ";F1$
103 FL$=LEFT$(F1$+PD$,16)
104 PRINT" ICH SUCHE NACH "FL$
105 POKEQ,11:OPEN1,8,15:OPEN9,8,9,"#":GOSUB132:S%=1:OK%=0
106 PRINT#1,"B-R"9;0;18;S%:GOSUB132
107 PRINT#1,"B-P"9;1:GET#9,NS$:IFNS$=""THENNS$=C0$
108 PRINT#1,"U1"9;0;18;S%:GOSUB132
109 FORI=2TO226STEP32:PRINT#1,"B-P"9;I:GET#9,TY$:IFTY$<>CHR$(130)GOTO115
110 PRINT#1,"B-P"9;I+19:PRINT#9,CR$;
111 PRINT#1,"B-P"9;I+3:INPUT#9,NM$:IFNM$<>FL$GOTO115
112 PRINT#1,"B-P"9;I+1:GET#9,LT$:IFLT$=""THENLT$=C0$
113 PRINT#1,"B-P"9;I+2:GET#9,LS$:IFLS$=""THENLS$=C0$
114 OK%=1:I=226
115 NEXTI:IFOK%THEN118
116 S%=ASC(NS$):IF0<S%ANDS%<20GOTO106
117 POKEQ,27:PRINT" "F1$" NICHT GEFUNDEN!":END
118 T%=ASC(LT$):S%=ASC(LS$):PRINT#1,"U1"9;0;T%;S%:GOSUB132
119 PRINT#1,"B-P"9;2:GET#9,LO$:IFLO$=""THENLO$=C0$
120 PRINT#1,"B-P"9;3:GET#9,HI$:IFHI$=""THENHI$=C0$
121 LO%=ASC(LO$):HI%=ASC(HI$):AD=LO%+256*HI%
122 POKEQ,27:PRINT" MOMENTANE STARTADR. :"AD;:X=AD:GOSUB50020:PRINT"$"X$
123 PRINT" SO LASSEN (J[146]-N[146]) ?
124 [161]G$:[139]G$[179][177]"J"[175]G$[179][177]"N"[137]124
125 [139]G$[178]"J"[167]131
126 [133]" NEUE ADR. (DEZ. ODER $XXXX ";AD$:[141]51000
127 [139][198](AD$)[178]160[167][153]"ONONON":[137]126
128 AD[178][197](AD$):HI%[178]AD[173]256:LO%[178]AD[171]256[172]HI%
129 [151]Q,11:[152]1,"B-P"9;2:[152]9,[199](LO%)[199](HI%);
130 [152]1,"U2"9;0;T%;S%:[141]132:[137]118
131 [151]Q,11:[160]9:[160]1:[151]Q,27:[153]" MIT "F1$" FERTIG !":[128]
132 [132]1,EN$,EM$,ET$,ES$:[139]EN$[178]"00"[167][142]
133 [160]9:[160]1:[151]Q,27:[153]" I/O ERROR "EN$" "EM$" "ET$" "ES$:[128]
50008 [143] HEX X$ NACH DEZ X
50010 X[178]0:[129]I[178]1[164][195](X$):X0[178][198]([202](X$,I,1)):X[178]16[172]X[170]X0[171]48[170](X0[177]64)[172]7:[130]:
50012 [142]
50017 :
50018 [143] DEZ X NACH HEX X$
50020 X$[178]"":[129]I[178]1[164]4:X0[178]X[173]16:X[178]X[171][181](X0)[172]16:X$[178][199](48[170]X[171](X[177]9)[172]7)[170]X$:X[178][181](X0)
50022 [130]:[142]
51000 [139] [200](AD$,1)[179][177]"$"[167][142]
51010 X$[178][201](AD$,4):[141]50010:AD$[178][196](X):[142]